;;;QQ:67762207
[@Stmain]
{
#IF
#ACT
MOV D0 0
loadvalue D0 "ϵͳ.INI"  ʦͽnpcʱ


#IF
!checkcmd IsTestServer
#say
{FCOLOR/10}һ72Կʼͽ\
ͽ65¾԰ʦ,72ʦ\
ʦͽ\
ʦͽԻö30%齱\
ʦʦԻ1ʯԼ3ħʯĽ\
ͽܽ10ھ齱.\
ģʦȼѡʦͽϵ\
νһΪʦΪʦ\
_____________{FCOLOR/1}ʦ: @ͽ{FCOLOR/12}\\
{FCOLOR/14}˿ԲԿгԾĻ\

#ELSESAY
<$OUTPUT(D0)>СʱŻῪʦͽϵͳ!\\



#IF
!checklevel 66
EQUAL USERSTFLAG 0
Esmall D0 %CURHOUR
#SAY
 <Ҫʦ/@@GETTEACHER>\\

#IF
EQUAL USERSTFLAG 1
Esmall D0 %CURHOUR
#SAY
 <ʦ/@ʦ> ͽΪ<$OUTPUT(USERSTNAME)>\\

#IF
EQUAL USERSTFLAG 2
Esmall D0 %CURHOUR
#SAY
 <ʦ/@ʦ> ʦΪ<$OUTPUT(USERSTNAME)>\\

#IF
EQUAL USERSTFLAG 6
Esmall D0 %CURHOUR
#SAY
 <ʦͽϵ/@ʦϵ> ͽΪ<$OUTPUT(USERSTNAME)> \
_Ѿﵽʦȼδʦͽϵ\\

#IF
EQUAL USERSTFLAG 7
Esmall D0 %CURHOUR
#SAY
 <ʦͽϵ/@ͽܽϵ> ʦΪ<$OUTPUT(USERSTNAME)>\
_Ѿﵽʦȼδʦʦͽϵ\\


#IF
Esmall D0 %CURHOUR
#SAY
 <ʦͽ/@ʦͽ>\
{FCOLOR/10}ʦͽԻ,ָͬ\
ʦͽΪÿ30Էһ\\
 <뿪/@exit>
#ACT
break
 
#elsesay
<$OUTPUT(D0)>СʱŻῪʦͽϵͳ!\\
<뿪/@EXIT>\



;;=====================================================================
[@@GETTEACHER]
#IF
!checklevel 66  ;;1.ͽܵȼ
#ELSESAY
65(65)԰ʦ!\
<뿪/@EXIT>
#ELSEACT
break

#IF
checkjob wizard
#ACT
mov A1 "ʦ"
#IF
checkjob warrior
#ACT
mov A1 "սʿ"
#ELSEACT
mov A1 "ʿ"

#IF
checkcmd CHECKALLOWST %INPUTSTR  ;;2.ʦ 3.ʦʦ
checklevel
#act
FormatStr "@_ShowtoTea(%s,%s,%s)" %USERNAME %P9 %A1
actcmd RUNSCRIPTLABEL %INPUTSTR %A9
mov A3 %INPUTSTR
#SAY
ѾɹͰʦϢȴӦ
#ELSESAY
Է߻߲ʦ.\\


[@_ShowtoTea()]
#IF
!EQUAL USERSTFLAG 0 ;;4.ʦûͽ
#ACT
actcmd RUNSCRIPTLABEL %A0 "@_ShowtoStu_3"   ;;Ѿͽ
break

#IF
checklevel 72  ;;5.ʦȼ
#ACT
mov A0 %ARG(1) ;;ͽ
mov D0 %ARG(2) ;;ͽܵȼ
mov A2 %ARG(2) ;;ͽְҵ
#SAY
һ<$OUTPUT(D0)>'<$OUTPUT(A2)>' {FCOLOR/10}'<$OUTPUT(A0)>'{FCOLOR/12}ĽѾãϣΪͽ.\
Ƿ?\\
</@~~acceptst> <ܾ/@~~Refuse>
#ELSEACT
actcmd RUNSCRIPTLABEL %A0 "@_ShowtoStu_2"   ;;ȼ
break

[@~~acceptst]
#ACT
actcmd RUNSCRIPTLABEL %A0 "@_ShowtoStu_4"   ;;

#IF
checkcmd ISONLINE %A0
#ACT
actcmd SETSTFLAG 1 %A0  ;;趨Լ״̬Ϊ1 ͽ%A0
actcmd SETSTFLAG 2 %USERNAME %A0 ;;趨ͽ%A0״̬Ϊ2 ͽܵʦͽϵΪԼ
#SAY
ϲѾɹ<$OUTPUT(A3)>Ϊͽ.\
<ر/@exit>
#ELSESAY
Բ𣬶ԷѾ.\\
<ر/@exit>


[@~~Refuse]
#ACT
actcmd RUNSCRIPTLABEL %A0 "@_ShowtoStu_1"   ;;ܾ


[@_ShowtoStu_1]
#SAY
'<$OUTPUT(A3)>'ܾİʦ.\
<ر/@exit>

[@_ShowtoStu_2]
#SAY
'<$OUTPUT(A3)>'δʦĵȼ.\
<ر/@exit>

[@_ShowtoStu_3]
#SAY
'<$OUTPUT(A3)>'ĿǰǱ˵ʦ.\
<ر/@exit>

[@_ShowtoStu_4]
#SAY
ϲѾɹ<$OUTPUT(A3)>Ϊʦ.\
<ر/@exit>


;;======================================================================

[@ʦ]
#SAY
ȷҪͽʦţ\\
<ȷ/@ʦ1>  <ȡ/@exit>

[@ʦ1]
#IF
EQUAL USERSTFLAG 1
#ELSEACT
break
#ELSESAY
ڻûͽ...\
</@back>

#IF
checkcmd ISONLINE %USERSTNAME
#ACT
actcmd SETSTFLAG 0 %USERNAME %USERSTNAME
actcmd RUNSCRIPTLABEL %USERSTNAME "@_ʦ"  ;;ߵʾ
#ELSEACT
actcmd SETSTFLAG 3 %USERNAME %USERSTNAME   ;;趨Ϊ3

#IF
#act
actcmd SETSTFLAG 0 ""
#SAY
Ѿͽʦ.\
<ر/@exit>

[@_ʦ]
#IF
#SAY
ʦ<$USERSTNAME>Ѿʦ.\\
<ر/@exit>
#IF
#ACT
actcmd SETSTFLAG 0 ""

;;======================================================================
[@ʦ]
#SAY
ȷҪʦ?\\
<ȷ/@ʦ1>  <ȡ/@exit>

[@ʦ1]
#if 
EQUAL USERSTFLAG 2
#ELSEACT
break
#ELSESAY
ڻûаʦ...\
</@back>

#IF
checkcmd ISONLINE %USERSTNAME
#ACT
actcmd SETSTFLAG 0 %USERNAME %USERSTNAME
actcmd RUNSCRIPTLABEL %USERSTNAME "@_ʦ"

#IF
#act
actcmd SETSTFLAG 0 ""
#SAY
Ѿʦ.\
<ر/@exit>


[@_ʦ]
#IF
#SAY
ͽ<$USERSTNAME>Ѿʦ.\\
<ر/@exit>
#IF
#ACT
actcmd SETSTFLAG 0 ""

;;======================================================================
[@ʦϵ]
#SAY
ȷҪ'<$USERSTNAME>'ʦͽϵ\\
<ȷ/@ʦϵ1>  <ȡ/@exit>

[@ʦϵ1]
#IF
EQUAL USERSTFLAG 6
#ACT
mov A0 %USERSTNAME

#ELSEACT
break
#ELSESAY
ڻûͽ...\
</@main>

#IF
checkcmd ISONLINE %USERSTNAME
#ACT
actcmd SETSTFLAG 0 %USERNAME %USERSTNAME
actcmd RUNSCRIPTLABEL %USERSTNAME "@_ʦʦ"
#ELSEACT
actcmd SETSTFLAG 10 %USERNAME %USERSTNAME

#IF
#act
actcmd SETSTFLAG 0 ""
#SAY
Ѿ'<$OUTPUT(A0)>'ʦͽϵ.\
<ر/@exit>

[@_ʦʦ]
#IF
#SAY
ʦ<$USERSTNAME>ʦͽϵ.\\
<ر/@exit>

#IF
#ACT
actcmd SETSTFLAG 0 ""

;;======================================================================
[@ͽܽϵ]
#SAY
ȷҪ'<$USERSTNAME>'ʦͽϵ\\
<ȷ/@ͽܽϵ1>  <ȡ/@exit>

[@ͽܽϵ1]
#IF
EQUAL USERSTFLAG 7
#ACT
mov A0 %USERSTNAME

#ELSEACT
break
#ELSESAY
ڻûʦ...\
</@back>

#IF
checkcmd ISONLINE %USERSTNAME
#ACT
actcmd SETSTFLAG 0 %USERNAME %USERSTNAME
actcmd RUNSCRIPTLABEL %USERSTNAME "@_ͽܽʦ"

#IF
!checkcmd ISONLINE %USERSTNAME
checkcmd CHECKSTFLAG 6 %USERNAME %USERSTNAME 
#ACT
actcmd SETSTFLAG 9 %USERNAME %USERSTNAME

#IF
!checkcmd ISONLINE %USERSTNAME
checkcmd CHECKSTFLAG 8 %USERNAME %USERSTNAME 
#ACT
actcmd SETSTFLAG 4 %USERNAME %USERSTNAME

#IF
#act
actcmd SETSTFLAG 0 ""
#SAY
Ѿ'<$OUTPUT(A0)>'ʦͽϵ.\
<ر/@exit>


[@_ͽܽʦ]
#IF
#SAY
ͽ'<$USERSTNAME>'ʦͽϵ.\\
<ر/@exit>

#IF
#ACT
actcmd SETSTFLAG 0 ""
;;=====================================================================


[@ʦͽ]
#if
checkgold 100000
#act
take  100000
give ʦͽ
#say
һʦͽƣ˫ɷɵʦͽԱ.\
<뿪/@exit>
#elsesay
һҪ100000ǮŶ..\
<뿪/@exit>
}
;;;QQ:67762207